home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Skunkware 5
/
Skunkware 5.iso
/
lib
/
jfile.uem
< prev
next >
Wrap
Text File
|
1995-07-21
|
992b
|
45 lines
; @(#) JFIL - microEmacs v3.9i+ macro file to load filename under csr
;
; 'fnam' is same as 'tag' tags.cmd ( fm where this macro was snarfed )
;
; MJH Feb 1991 v1.0
; Bound to C-X J.....
;
; Variables :
; %fnam - filename to load
;+ Examine how setup/use procedure names !!!
set $discmd FALSE
28 store-macro
!if &or &equal $curchar 20 &equal $curchar 9
next-word
!else
!while &equal 0 &sindex " <~"(}*!,~t~n" $char
backward-character
!endwhile
set %fnam "./"
!if &equal $curchar 60 ; "<"
set %fnam "/usr/include/"
!endif
forward-character
; previous-word
!endif
set %fnam &cat %fnam &chr $curchar
forward-character
!while &equal 0 &sindex " (>~"},;~t~n" $char
set %fnam &cat %fnam $char
forward-character
!endwhile
;write-message &cat &cat "fnam [" %fnam "]"
;set %wait >k
set-nmark "j"
!force find-file %fnam
!endm
set $discmd TRUE
bind-to-key execute-macro-28 ^XJ